BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/P/PolarRect.cpt/PolarRect Converter/stack.txt

Text File | 1988-11-21 | 4KB | 116 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2657
-- card count: 2
-- first card id: 2919
-- list block id: 3761
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 10976 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on doangle
  set the cursor to 2
  hide cd button "End"
  hide cd button "Start"
  global ybase,xbase,tosq,totan,theloc,secondloc
  put "Click where you would like to start" into the msg
  show the msg at 29,19
  wait until the mouseclick
  put the clickloc into theloc
  set the loc of card button "Start" to theloc
  show cd button "start"
  put "Now click at your ending point" into the msg
  wait until the mouseclick
  put the clickloc into secondloc
  set the loc of cd button "end" to secondloc
  show cd button end
  put  (item 1 of secondloc - item 1 of theloc) into xbase
  put  (item 2 of theloc - item 2 of secondloc) into ybase
  put xbase into realx
  put ybase into realy
  put abs of xbase into xbase
  put abs of ybase into ybase
  put (xbase^2) + (ybase^2) into tosq
  put sqrt (tosq) into Radius
  put realy/realx into totan
  put atan (totan) into pheta
  put todegree(pheta) into pheta
  if the hilite of cd button 2 is false then
    put round (radius) into radius
    put round (pheta) into pheta
  end if
  --if pheta contains "-" then
  -- put abs of pheta into pheta
  -- add 90 to pheta
  -- end if
  put Radius into cd fld "theRadius"
  put pheta into cd fld "TheAngle"
  hide msg
end doangle


function todegree what
put what * 360 into x
put x/(2*pi) into thenew
return thenew
end todegree what